home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / spoc88 / loops / numbers.bas < prev    next >
BASIC Source File  |  1988-06-10  |  469b  |  14 lines
  1. 'Toy Program by Tom Wrona
  2.  
  3. CLS
  4. PRINT "Let's play with numbers!"
  5. PRINT "You give me a number and I'll tell you facts about the number."
  6. INPUT "What's your number";number
  7. PRINT "The square root of your number is " SQR(number)"."
  8. INPUT "Want to know something else (Y/N)" answer$
  9. IF UCASE$(answer$) = "N" GOTO DONE
  10. PRINT "A circle with a diameter of"number"would have
  11. PRINT "a circumference of" 3.14 * number"."
  12. DONE:
  13. PRINT "That's all! Thanks for playing!"
  14.